home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cdplay2a / cdmain~1.bas < prev    next >
Encoding:
BASIC Source File  |  1999-09-23  |  1.2 KB  |  27 lines
  1. Attribute VB_Name = "CDMain"
  2. Option Explicit
  3.  
  4. 'For Background         '
  5. Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  6. Public Declare Function GetCapture Lib "user32" () As Long
  7. Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  8. Public Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
  9. Public Declare Function ReleaseCapture Lib "user32" () As Long
  10.  
  11. Public Type POINTAPI
  12.         X As Long
  13.         Y As Long
  14. End Type
  15.  
  16. Public Const SRCCOPY = &HCC0020
  17.  
  18. Global iTPPY As Long
  19. Global iTPPX As Long
  20. '======================='
  21.  
  22.  
  23. 'For Music              '
  24. Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
  25. Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  26. '======================='
  27.